The National Palace Museum Experience/The National Palace Museum Experience.iso/Programs/Index.dxr/00111.ls

Text File | 1998-11-19 | 831 b | 39 lines

global endSprite

on enterFrame
  roomcontrolinit()
  initroomglobals()
  initcursor()
  repeat with spriteNum = 2 to 40
    if the scoreColor of sprite spriteNum <> 5 then
      set endSprite to spriteNum - 1
      exit repeat
    end if
  end repeat
end

on exitFrame
  repeat with spriteNum = 2 to endSprite
    puppetSprite(spriteNum, 1)
  end repeat
end

on roomcontrolinit
  global roomcontentsprite, hiliterect, returnflag, timesflag, currlabel
  set roomcontentsprite to 42
  puppetSprite(hiliterect, 1)
  puppetSprite(roomcontentsprite, 1)
  if not returnflag then
    initscrollh()
  end if
  initroomcontrols()
  installselectcontrol(word 1 of the frameLabel)
  set currlabel to word 1 of the frameLabel
end

on initroomglobals
  global groomhotlist, groomactslist
  set groomhotlist to []
  set groomactslist to []
end